/*this is lotto.sas. Created 11/27/2007 by PMS to read in lotto data*/

libname lotto  'C:\Documents and Settings\skibapm\Desktop\lotto data' ;
data LOTTO.southFL88_90            ;
%let _EFIERR_ = 0; /* set the ERROR detection macro variable */
infile 'E:\southern\southFL88_90.txt' delimiter = '|' MISSOVER DSD lrecl=32767 ;
informat VAR1 $60. ;
informat VAR2 $60. ;
informat VAR3 $60. ;
informat VAR4 $60. ;
informat VAR5 $60. ;
informat VAR6 $60. ;
informat VAR7 $60. ;
informat VAR8 $60. ;
informat VAR9 $60. ;
informat VAR10 $60. ;
informat VAR11 $60. ;
informat VAR12 $60. ;
informat VAR13 $60. ;
informat VAR14 $60. ;
informat VAR15 $60. ;
informat VAR16 $60. ;
informat VAR17 $60. ;
informat VAR18 $60. ;
informat VAR19 $60. ;
informat VAR20 $60. ;
informat VAR21 $60. ;
informat VAR22 $60. ;
informat VAR23 $60. ;
informat VAR24 $60. ;
informat VAR25 $60. ;
informat VAR26 $60. ;
informat VAR27 $60. ;
informat VAR28 $60. ;
informat VAR29 $60. ;
informat VAR30 $90. ;
informat VAR31 $60. ;
informat VAR32 $60. ;
informat VAR33 $60. ;
informat VAR34 $60. ;
informat VAR35 $60. ;
informat VAR36 $60. ;
informat VAR37 $60. ;
informat VAR38 $60. ;
informat VAR39 $60. ;
informat VAR40 $60. ;
format VAR1 $60. ;
format VAR2 $60. ;
format VAR3 $60. ;
format VAR4 $60. ;
format VAR5 $60. ;
format VAR6 $60. ;
format VAR7 $60. ;
format VAR8 $60.;
format VAR9 $60.;
format VAR10 $60.;
format VAR11 $60.;
format VAR12 $60. ;
format VAR13 $60. ;
format VAR14 $60. ;
format VAR15 $60. ;
format VAR16 $60. ;
format VAR17 $60. ;
format VAR18 $60. ;
format VAR19 $60. ;
format VAR20 $60. ;
format VAR21 $60. ;
format VAR22 $60. ;
format VAR23 $60. ;
format VAR24 $60. ;
format VAR25 $60. ;
format VAR26 $60. ;
format VAR27 $60. ;
format VAR28 $60. ;
format VAR29 $60. ;
format VAR30 $90. ;
format VAR31 $60. ;
format VAR32 $60. ;
format VAR33 $60. ;
format VAR34 $60. ;
format VAR35 $60. ;
format VAR36 $60. ;
format VAR37 $60. ;
format VAR38 $60. ;
format VAR39 $60. ;
format VAR40 $60. ;
input
VAR1 $
VAR2 $
VAR3 $
VAR4 $
VAR5 $
VAR6 $
VAR7 $
VAR8 $
VAR9 $
VAR10 $
VAR11 $
VAR12 $
VAR13 $
VAR14 $
VAR15 $
VAR16 $
VAR17 $
VAR18 $
VAR19 $
VAR20 $
VAR21 $
VAR22 $
VAR23 $
VAR24 $
VAR25 $
VAR26 $
VAR27 $
VAR28 $
VAR29 $
VAR30 $
VAR31 $
VAR32 $
VAR33 $
VAR34 $
VAR35 $
VAR36 $
VAR37 $
VAR38 $
VAR39 $
VAR40 $
;
if _ERROR_ then call symputx('_EFIERR_',1);  /* set ERROR detection macro variable */
run;
